home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / ct_xmp15 / d32exam.asm < prev    next >
Assembly Source File  |  1996-09-15  |  975b  |  69 lines
  1. .386
  2. .model flat
  3. .stack 1000h
  4.  
  5. locals
  6.  
  7. include mxmplay.inc
  8.  
  9. .data?
  10. mxmdata    db 4000h dup (?)
  11.  
  12. .code
  13. module:
  14. include atomic.inc
  15.  
  16. copyright db "mxmplay asm example  (c) '95/96 Niklas Beisert / pascal",10,13
  17.           db 'DOS32 conversion by Crom / ethnica',13,10,10,'$'
  18. playing db 'playing "at0mic playboys" by Screamager... press any key to stop.$'
  19. byebye db 13,10,'thanks for listening',13,10,'$'
  20.  
  21.  
  22. START:    sti
  23.     cld
  24.  
  25.     mov ah,9
  26.     mov edx,OFFSET copyright
  27.     int 21h
  28.  
  29.         call xmpGetEnvPtrDOS32_
  30.         call xmpGetGUSPort_
  31.  
  32.     lea ebx,mxmdata
  33.     mov ecx,65536
  34.     mov esi,OFFSET module
  35.         mov dl,MXMINTMODEDPMI
  36.     call xmpInit_
  37.  
  38.     xor eax,eax
  39.     call xmpPlay_
  40.  
  41.     mov ah,9
  42.     mov edx,OFFSET playing
  43.     int 21h
  44.  
  45.     mov ah,7
  46.     int 21h
  47.  
  48. @@flush:
  49.     mov ah,11
  50.     int 21h
  51.     cmp al,0
  52.     je @@bye
  53.     mov ah,7
  54.     int 21h
  55.     jmp @@flush
  56.  
  57. @@bye:
  58.     mov ah,9
  59.     mov edx,OFFSET byebye
  60.     int 21h
  61.  
  62. @@done:
  63.     call xmpStop_
  64.  
  65.     mov ax,4C00h
  66.     int 21h
  67.  
  68.     END START
  69.